home *** CD-ROM | disk | FTP | other *** search
/ El Mac 8 / El Mac 8.iso / Shareware / Demos / OpenStack™ (Demo US) / OpenStack™ Demo / Objects Library (Demo) / Fields / Numerical Field / Numerical Field.rsrc / HSCR_6001 < prev    next >
Encoding:
Text File  |  1995-10-23  |  1.4 KB  |  65 lines
  1. on openField
  2.   global SaveNumberFormat
  3.   -- format des nombres
  4.   put the NumberFormat into SaveNumberFormat -- save current value of textArrows
  5. end openField
  6.  
  7. on restoreNumberFormat
  8.   global SaveNumberFormat
  9.   if SaveNumberFormat ≠ empty then
  10.     set the NumberFormat to SaveNumberFormat -- restore NumberFormat
  11.     put empty into SaveNumberFormat -- clean up
  12.   end if
  13. end restoreNumberFormat
  14.  
  15. on checkField
  16.   if me = "" then put 0 into me
  17.   if offset(",",me) ≠0 then put "." into char offset(",",me) of me
  18.   repeat until offset(" ",me)=0
  19.     put "" into char offset(" ",me) of me
  20.   end repeat
  21.   if me is not a number then
  22.     beep
  23.     put 0 into me
  24.     answer "Vous devez taper un nombre dans ce champ !"
  25.     select text of me
  26.     exit to hypercard
  27.   else
  28.     put me +0 into myVar
  29.     -- supprimer les signes comentaires
  30.     -- de la ligne suivante pour appliquer un format spécial
  31.     -- set NumberFormat to "0.00####"
  32.     put myVar into me
  33.   end if
  34. end checkField
  35.  
  36. on closeField
  37.   checkField
  38.   restoreNumberFormat
  39. end closeField
  40.  
  41. on exitField
  42.   checkField
  43.   restoreNumberFormat
  44. end exitField
  45.  
  46. on enterInField
  47.   checkField
  48.   pass enterInField
  49. end enterInField
  50.  
  51. on returnInField
  52.   checkField
  53.   pass returnInField
  54. end returnInField
  55.  
  56. on keyDown x
  57.   if chartonum(x) = 8 or¬
  58.   chartonum(x) = 9 then pass keyDown
  59.   if chartonum(x) = 3 or¬
  60.   chartonum(x) = 13 then send "tabkey" to me
  61.   if chartonum(x) < 48 or chartonum(x) >57 then exit to HyperCard
  62.   pass keyDown
  63. end keyDown
  64.